use strict;
use warnings;

use Bio::Rambam::Proteomics;

#my $file='/home/david/kk.perl';
my $file='/home/david/projects/002_proteomics/itraq/PXD000284/2009_03_23_CAP09.mzML';
my $t1=time();
my $mzML=Bio::Rambam::Proteomics::Formats::MzML->new(file=>$file);

my $t2=time();
my $time=$t2-$t1;
print "$time\n";

#$mzML->validate_schema();


$mzML->parse_spectra();




my $t3=time();
$time=$t3-$t2;
print "\n\n\n$time\n";
print "fin\n";
















